home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / cboot.d64 / randomize2.l < prev    next >
Text File  |  2009-01-23  |  956b  |  41 lines
  1. 851,DEVICE
  2. 0200 POKE 852,170 //   TAX
  3. 0210 POKE 853,160 //   LDY #$FF
  4. 0220 POKE 854,255
  5. 0230 POKE 855,32 //    JSR $FFBA
  6. 0240 POKE 856,186
  7. 0250 POKE 857,255
  8. 0260 POKE 858,169 //   LDA
  9. 0270 POKE 859,LEN(FILENAME$)
  10. 0280 POKE 860,162 //   LDX #$3C
  11. 0290 POKE 861,60
  12. 0300 POKE 862,160 //   LDY #$03
  13. 0310 POKE 863,3
  14. 0320 POKE 864,32 //    JSR $FFBD
  15. 0330 POKE 865,189
  16. 0340 POKE 866,255
  17. 0350 POKE 867,32 //    JSR $FFC0
  18. 0360 POKE 868,192
  19. 0370 POKE 869,255
  20. 0380 POKE 870,169 //   LDA END'LO
  21. 0390 POKE 871,END'LO
  22. 0400 POKE 872,170 //   TAX
  23. 0410 POKE 873,169 //   LDA END'HI
  24. 0420 POKE 874,END'HI
  25. 0430 POKE 875,168 //   TAY
  26. 0440 POKE 876,169 //   LDA #$FB
  27. 0450 POKE 877,251
  28. 0460 POKE 878,32 //    JSR $FFD8
  29. 0470 POKE 879,216
  30. 0480 POKE 880,255
  31. 0490 POKE 881,169 //   LDA
  32. 0500 POKE 882,DEVICE
  33. 0510 POKE 883,32 //    JSR $FFC3
  34. 0520 POKE 884,195
  35. 0530 POKE 885,255
  36. 0540 POKE 886,96 //    RTS
  37. 0550 POKE 251,START'LO
  38. 0560 POKE 252,START'HI
  39. 0570 SYS 850
  40. 0580 ENDPROC OBJ_SAVE
  41.